  10 :return ;clear ;NT=1
  20 BC=rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
  30 print ;print "    MORSE CODE
  40 print ;input "  SPEED?"D
  45 print ;print "TYPE 'WORDS''RUN' for CODE
  50 print ;print "YOUR MESSAGE:
  60 print ;B=0
  70 B=B+1;N=KP;if N=106goto 200
  80 @(B)=N;TV=N;if N=31B=B-2
  90 goto 70
 200 clear ;FC=0;BC=3;P=0;CY=40;for A=1to B-1
 210 P=P+1;if P=10P=0;CY=40
 220 N=@(A);NT=0;TV=N;print " ",;NT=D
 230 if N<44goto 300
 240 if N>90goto 300
 250 if N=47goto 300
 260 if N>57if N<65goto 300
 270 gosub Nmul 10
 275 for C=1to 25mul D;next C
 280 next A
 290 goto 1000
 300 TV=31;print ;for C=1to 25mul D;next C
 310 goto 280
 440 print "Q00  Q00  Q  Q  Q00  Q00";return 
 450 print "Q00000000";return 
 460 print "Q  Q00  Q  Q00  Q  Q00";return 
 480 print "Q00  Q00  Q00  Q00  Q00";return 
 490 print "Q  Q00  Q00  Q00  Q00";return 
 500 print "Q  Q  Q00  Q00  Q00";return 
 510 print "Q  Q  Q  Q00  Q00";return 
 520 print "Q  Q  Q  Q00";return 
 530 print "Q  Q  Q  Q  Q";return 
 540 print "Q00  Q  Q  Q  Q";return 
 550 print "Q00  Q00  Q  Q  Q";return 
 560 print "Q00  Q00  Q00  Q  Q";return 
 570 print "Q00  Q00  Q00  Q00  Q";return 
 650 print "Q  Q00";return 
 660 print "Q00  Q  Q  Q";return 
 670 print "Q00  Q  Q00  Q";return 
 680 print "Q00  Q  Q";return 
 690 print "Q";return 
 700 print "Q  Q  Q00  Q";return 
 710 print "Q00  Q00  Q";return 
 720 print "Q  Q  Q  Q";return 
 730 print "Q  Q";return 
 740 print "Q  Q00  Q00  Q00";return 
 750 print "Q00  Q  Q00";return 
 760 print "Q  Q00  Q  Q";return 
 770 print "Q00  Q00";return 
 780 print "Q00  Q";return 
 790 print "Q00  Q00  Q00";return 
 800 print "Q  Q00  Q00  Q";return 
 810 print "Q00  Q00  Q  Q00";print 
 820 print "Q  Q00  Q";return 
 830 print "Q  Q  Q";return 
 840 print "Q00";return 
 850 print "Q  Q  Q00";return 
 860 print "Q  Q  Q  Q00";return 
 870 print "Q  Q00  Q00";return 
 880 print "Q00  Q  Q  Q00";return 
 890 print "Q00  Q  Q00  Q00";return 
 900 print "Q00  Q00  Q  Q";return 
1000 print "Q  Q00  Q  Q00  Q"
1005 clear 
1010 B=B-1;NT=0;for C=1to B
1020 TV=@(C);next C;print 
1030 print "END OF MESSAGE
1040 if &(20)=16B=B+1;goto 200
1050 if &(21)=16run 
1060 if &(20)=8B=B+1;@(B)=32;print "input ";goto 70
1070 goto 1040
:return ;run 
